home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 November
/
64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64
/
demo m&t 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
36 lines
1 rem laser - demo- und steuer-programm
2 rem von nikolaus heusler 8.91
3 rem zwengauerweg 18, 8000 muenchen 71
4 :
10 ifpeek(49155)<>3thenload"laser.code",8,8
20 sys49152:sp=8
30 print"[147]laser-steuer- und demoprogramm m&t/nh
40 [153]"tasten: + wait / - wait ..... verzoegerung
42 print" s [146] ........... programm-pause
43 [153]" w wait ........... weiter
44 print" x [146] ........... ende
90 [137]900
230 [151]6,br:[151]2,1:[151]3,1:[151]4,m1:[151]5,m2:[142]
800 [139]pp[178]1[167]810
802 pp[178]1:[153]""[163]22)"(pause)":[142]
810 pp[178]0:[153]""[163]22)" ":[142]
900 [140]:[129]dk[178]1[164]15
902 [135]m1,m2,br:[141]230
904 [129]di[178]1[164]sp[172]8
906 [153]" verzoegerung:"sp"cmd "
907 [153]" schritt:"dk"cmd "
908 [161]a$:[151]198,.
910 [139]a$[178]"+"[167]sp[178]sp[170]1:[139]sp[177]40[167]sp[178]40
912 [139]a$[178]"-"[167]sp[178]sp[171]1:[139]sp[179]0[167]sp[178]0
913 [139]a$[178]"+"[176]a$[178]"-"[167]926
914 [139]a$[178]"x"[167][158]49152:[158]65418:[151]56325,64:[158]65409:[128]
916 [139]a$[178]"w"[167]926
918 [139]a$[178]"s"[167][141]800
920 [139]pp[167]di[178]1
924 [130]di
926 [130]dk:[137]900
950 [131]70,59,76,246,31,235,209,216,5,129,61,33
952 [131]48,252,150,94,152,53,243,116,248,30,94,195
954 [131]221,49,38,212,80,88,10,200,86,145,44,70,17,116,220
956 [131]15,117,232,160,100,60